/ BBS in a Box 4 / BBS in a Box - Macintosh - Volume IV (January 1992) (BBS in a Box).iso / Files / Prog / H-K / ICON GLUE.cpt / pegasus.p

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 09 70 65 67 61 73 75 | 73 2e 70 00 00 00 00 00 |..pegasu|s.p.....|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 01 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 21 77 00 | 00 08 1e 9f e1 9e 29 9f |.....!w.|......).|
|00000060| e1 9e 29 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |..).....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 a5 ff 00 00 |........|........|
|00000080| 7b 20 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |{ ------|--------|
|00000090| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000c0| 2d 2d 2d 09 7d 0d 7b 20 | 43 6f 70 79 72 69 67 68 |---.}.{ |Copyrigh|
|000000d0| 74 20 a9 20 31 39 38 37 | 2d 31 39 38 39 20 62 79 |t . 1987|-1989 by|
|000000e0| 20 4a 6f 65 20 50 69 6c | 6c 65 72 61 2e 20 20 41 | Joe Pil|lera.  A|
|000000f0| 6c 6c 20 72 69 67 68 74 | 73 20 72 65 73 65 72 76 |ll right|s reserv|
|00000100| 65 64 2e 20 09 09 7d 0d | 7b 20 2d 2d 2d 2d 2d 2d |ed. ..}.|{ ------|
|00000110| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000120| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000130| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000140| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 09 7d 0d 7b 20 |--------|---.}.{ |
|00000150| 42 61 63 6b 67 72 6f 75 | 6e 64 3a 20 49 20 68 61 |Backgrou|nd: I ha|
|00000160| 76 65 20 62 65 65 6e 20 | 61 20 73 65 6c 66 2d 74 |ve been |a self-t|
|00000170| 61 75 67 68 74 20 4d 61 | 63 20 70 72 6f 67 72 61 |aught Ma|c progra|
|00000180| 6d 6d 65 72 20 66 6f 72 | 20 6f 76 65 72 20 32 09 |mmer for| over 2.|
|00000190| 7d 0d 7b 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |}.{     |        |
|000001a0| 79 65 61 72 73 2e 20 20 | 4f 76 65 72 20 74 69 6d |years.  |Over tim|
|000001b0| 65 20 49 20 61 63 63 75 | 6d 75 6c 61 74 65 64 20 |e I accu|mulated |
|000001c0| 76 65 72 79 20 75 73 65 | 66 75 6c 20 66 75 6e 63 |very use|ful func|
|000001d0| 74 69 6f 6e 73 09 7d 0d | 7b 09 09 09 20 20 74 68 |tions.}.|{...  th|
|000001e0| 61 74 20 49 20 77 72 6f | 74 65 20 61 66 74 65 72 |at I wro|te after|
|000001f0| 20 70 6f 75 72 69 6e 67 | 20 6f 76 65 72 20 49 6e | pouring| over In|
|00000200| 73 69 64 65 20 4d 61 63 | 69 6e 74 6f 73 68 2e 09 |side Mac|intosh..|
|00000210| 09 7d 0d 7b 09 09 09 20 | 20 54 68 65 73 65 20 72 |.}.{... | These r|
|00000220| 6f 75 74 69 6e 65 73 20 | 77 65 72 65 20 70 6c 61 |outines |were pla|
|00000230| 63 65 64 20 69 6e 20 61 | 20 73 65 70 61 72 61 74 |ced in a| separat|
|00000240| 65 6c 79 20 63 6f 6d 70 | 69 6c 65 64 09 7d 0d 7b |ely comp|iled.}.{|
|00000250| 09 09 09 20 20 4d 50 57 | 20 50 61 73 63 61 6c 20 |...  MPW| Pascal |
|00000260| 6d 6f 64 75 6c 65 2c 20 | 77 68 69 63 68 20 49 27 |module, |which I'|
|00000270| 76 65 20 63 6f 6d 65 20 | 74 6f 20 6e 61 6d 65 20 |ve come |to name |
|00000280| 50 65 67 61 73 75 73 2e | 09 7d 0d 7b 09 09 09 09 |Pegasus.|.}.{....|
|00000290| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 7d 0d 7b |........|.....}.{|
|000002a0| 20 54 68 69 73 20 4d 6f | 64 75 6c 65 3a 20 20 54 | This Mo|dule:  T|
|000002b0| 68 69 73 20 66 69 6c 65 | 20 6f 6e 6c 79 20 72 65 |his file| only re|
|000002c0| 70 72 65 73 65 6e 74 73 | 20 61 20 73 6d 61 6c 6c |presents| a small|
|000002d0| 20 70 6f 72 74 69 6f 6e | 20 6f 66 20 6d 79 09 09 | portion| of my..|
|000002e0| 7d 0d 7b 09 09 09 09 61 | 63 74 75 61 6c 20 50 65 |}.{....a|ctual Pe|
|000002f0| 67 61 73 75 73 20 6d 6f | 64 75 6c 65 2c 20 77 68 |gasus mo|dule, wh|
|00000300| 69 63 68 20 49 20 66 65 | 6c 74 20 6e 65 63 65 73 |ich I fe|lt neces|
|00000310| 73 61 72 79 20 74 6f 09 | 7d 0d 7b 09 09 09 09 69 |sary to.|}.{....i|
|00000320| 6e 63 6c 75 64 65 20 77 | 69 74 68 20 74 68 65 20 |nclude w|ith the |
|00000330| 47 6c 75 65 20 70 72 6f | 64 75 63 74 20 74 6f 20 |Glue pro|duct to |
|00000340| 64 65 6d 6f 6e 73 74 72 | 61 74 65 20 74 68 65 09 |demonstr|ate the.|
|00000350| 7d 0d 7b 09 09 09 09 66 | 75 6e 63 74 69 6f 6e 61 |}.{....f|unctiona|
|00000360| 6c 69 74 79 20 6f 66 20 | 49 63 6f 6e 20 47 6c 75 |lity of |Icon Glu|
|00000370| 65 2e 09 09 09 09 09 09 | 09 7d 0d 7b 20 09 09 09 |e.......|.}.{ ...|
|00000380| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 20 09 7d |........|..... .}|
|00000390| 09 0d 7b 20 45 6e 6a 6f | 79 2e 09 2d 4a 6f 65 2d |..{ Enjo|y..-Joe-|
|000003a0| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 7d 0d 7b |........|.....}.{|
|000003b0| 20 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d | -------|--------|
|000003c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000003d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000003e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000003f0| 2d 2d 09 7d 0d 0d 7b 20 | 53 6f 75 72 63 65 20 53 |--.}..{ |Source S|
|00000400| 65 74 74 69 6e 67 73 20 | 3a 3a 20 39 20 70 6f 69 |ettings |:: 9 poi|
|00000410| 6e 74 20 4d 6f 6e 61 63 | 6f 2c 20 54 61 62 73 20 |nt Monac|o, Tabs |
|00000420| 3d 20 34 20 73 70 61 63 | 65 73 20 7d 0d 0d 7b 24 |= 4 spac|es }..{$|
|00000430| 53 20 50 65 67 61 73 75 | 73 7d 0d 0d 55 4e 49 54 |S Pegasu|s}..UNIT|
|00000440| 20 55 50 65 67 61 73 75 | 73 3b 0d 0d 49 4e 54 45 | UPegasu|s;..INTE|
|00000450| 52 46 41 43 45 0d 0d 55 | 53 45 53 0d 20 20 4d 65 |RFACE..U|SES.  Me|
|00000460| 6d 74 79 70 65 73 2c 20 | 51 75 69 63 6b 64 72 61 |mtypes, |Quickdra|
|00000470| 77 2c 20 4f 53 49 6e 74 | 66 2c 20 54 6f 6f 6c 49 |w, OSInt|f, ToolI|
|00000480| 6e 74 66 2c 20 50 61 63 | 6b 49 6e 74 66 3b 0d 0d |ntf, Pac|kIntf;..|
|00000490| 09 0d 50 52 4f 43 45 44 | 55 52 45 20 42 69 6e 64 |..PROCED|URE Bind|
|000004a0| 49 63 6f 6e 20 28 66 4e | 61 6d 65 20 09 09 3a 20 |Icon (fN|ame ..: |
|000004b0| 73 74 72 32 35 35 3b 0d | 09 09 09 09 09 76 6f 6c |str255;.|.....vol|
|000004c0| 75 6d 65 20 09 09 3a 20 | 6c 6f 6e 67 69 6e 74 3b |ume ..: |longint;|
|000004d0| 0d 09 09 09 09 09 66 69 | 6c 65 43 72 65 61 74 6f |......fi|leCreato|
|000004e0| 72 20 3a 20 4f 53 54 79 | 70 65 3b 0d 09 09 09 09 |r : OSTy|pe;.....|
|000004f0| 09 66 69 6c 65 54 79 70 | 65 09 3a 20 4f 53 54 79 |.fileTyp|e.: OSTy|
|00000500| 70 65 29 3b 0d 09 0d 0d | 50 52 4f 43 45 44 55 52 |pe);....|PROCEDUR|
|00000510| 45 20 44 69 61 6c 6f 67 | 4d 65 73 73 61 67 65 20 |E Dialog|Message |
|00000520| 28 44 50 74 72 20 09 20 | 3a 20 44 69 61 6c 6f 67 |(DPtr . |: Dialog|
|00000530| 50 74 72 3b 0d 09 09 09 | 09 09 09 20 49 74 65 6d |Ptr;....|... Item|
|00000540| 4e 75 6d 20 3a 20 69 6e | 74 65 67 65 72 3b 0d 09 |Num : in|teger;..|
|00000550| 09 09 09 09 09 20 4d 65 | 73 73 61 67 65 20 3a 20 |..... Me|ssage : |
|00000560| 53 54 52 49 4e 47 29 3b | 20 0d 0d 46 55 4e 43 54 |STRING);| ..FUNCT|
|00000570| 49 4f 4e 20 47 65 74 46 | 69 6c 65 4e 61 6d 65 20 |ION GetF|ileName |
|00000580| 28 6d 6f 64 65 20 09 09 | 09 3a 20 63 68 61 72 3b |(mode ..|.: char;|
|00000590| 0d 09 09 09 09 09 20 20 | 66 74 79 70 65 20 09 09 |......  |ftype ..|
|000005a0| 3a 20 4f 53 54 79 70 65 | 3b 0d 09 09 09 09 09 20 |: OSType|;...... |
|000005b0| 20 6d 65 73 73 61 67 65 | 53 74 72 20 09 3a 20 53 | message|Str .: S|
|000005c0| 74 72 32 35 35 3b 0d 09 | 09 09 09 09 20 20 56 41 |tr255;..|....  VA|
|000005d0| 52 20 76 6f 6c 52 65 66 | 4e 75 6d 09 3a 20 6c 6f |R volRef|Num.: lo|
|000005e0| 6e 67 69 6e 74 3b 0d 09 | 09 09 09 09 20 20 56 41 |ngint;..|....  VA|
|000005f0| 52 20 66 69 6c 65 4e 61 | 6d 65 20 09 3a 20 73 74 |R fileNa|me .: st|
|00000600| 72 32 35 35 29 20 3a 20 | 62 6f 6f 6c 65 61 6e 3b |r255) : |boolean;|
|00000610| 0d 20 0d 49 4d 50 4c 45 | 4d 45 4e 54 41 54 49 4f |. .IMPLE|MENTATIO|
|00000620| 4e 0d 0d 20 20 7b 20 2d | 2d 2d 2d 2d 2d 2d 2d 2d |N..  { -|--------|
|00000630| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000640| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000650| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000660| 2d 2d 2d 2d 20 7d 0d 20 | 20 7b 20 20 20 20 20 20 |---- }. | {      |
|00000670| 20 20 20 20 20 20 20 20 | 20 20 20 20 3e 3e 3e 20 |        |    >>> |
|00000680| 50 52 4f 43 45 44 55 52 | 45 20 20 42 69 6e 64 49 |PROCEDUR|E  BindI|
|00000690| 63 6f 6e 20 3c 3c 3c 20 | 20 20 09 20 20 20 20 20 |con <<< |  .     |
|000006a0| 20 20 20 20 09 20 20 7d | 0d 20 20 7b 20 2d 2d 2d |    .  }|.  { ---|
|000006b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000006c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000006d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000006e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 20 7d 0d 20 20 7b |--------|-- }.  {|
|000006f0| 20 20 50 75 72 70 6f 73 | 65 3a 20 42 69 6e 64 20 |  Purpos|e: Bind |
|00000700| 61 20 63 75 73 74 6f 6d | 20 69 63 6f 6e 20 74 6f |a custom| icon to|
|00000710| 20 61 6e 20 6f 75 74 70 | 75 74 20 64 6f 63 75 6d | an outp|ut docum|
|00000720| 65 6e 74 2e 20 49 6e 74 | 65 6e 64 65 64 20 20 7d |ent. Int|ended  }|
|00000730| 0d 20 20 7b 09 09 09 20 | 20 66 6f 72 20 61 64 76 |.  {... | for adv|
|00000740| 61 6e 63 65 64 20 75 73 | 65 72 73 20 6f 6e 6c 79 |anced us|ers only|
|00000750| 21 20 20 20 41 73 73 75 | 6d 65 73 20 74 68 61 74 |!   Assu|mes that|
|00000760| 20 74 68 65 20 63 6f 72 | 72 65 63 74 20 7d 0d 20 | the cor|rect }. |
|00000770| 20 7b 09 09 09 20 20 27 | 42 4e 44 4c 27 2c 20 27 | {...  '|BNDL', '|
|00000780| 46 52 45 46 27 20 61 6e | 64 20 27 49 43 4e 23 27 |FREF' an|d 'ICN#'|
|00000790| 20 72 65 73 6f 75 72 63 | 65 73 20 61 72 65 20 70 | resourc|es are p|
|000007a0| 72 65 73 65 6e 74 20 6f | 6e 20 20 7d 0d 20 20 7b |resent o|n  }.  {|
|000007b0| 09 09 09 20 20 62 6f 74 | 68 20 74 68 65 20 61 70 |...  bot|h the ap|
|000007c0| 70 6c 69 63 61 74 69 6f | 6e 20 61 6e 64 20 74 68 |plicatio|n and th|
|000007d0| 65 20 64 65 73 6b 74 6f | 70 2e 09 09 09 09 20 20 |e deskto|p.....  |
|000007e0| 7d 0d 20 20 7b 20 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |}.  { --|--------|
|000007f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000800| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000810| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000820| 2d 2d 2d 20 7d 0d 20 20 | 7b 20 20 43 61 6c 6c 65 |--- }.  |{  Calle|
|00000830| 72 20 20 3a 3a 20 20 41 | 6e 79 20 75 73 65 72 20 |r  ::  A|ny user |
|00000840| 6d 6f 64 75 6c 65 2e 09 | 09 09 09 09 20 20 20 20 |module..|....    |
|00000850| 09 09 20 20 7d 0d 20 20 | 7b 20 2d 2d 2d 2d 2d 2d |..  }.  |{ ------|
|00000860| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000870| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000880| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000890| 2d 2d 2d 2d 2d 2d 2d 20 | 7d 0d 20 20 7b 20 20 41 |------- |}.  {  A|
|000008a0| 72 67 75 6d 65 6e 74 73 | 20 3a 3a 20 66 4e 61 6d |rguments| :: fNam|
|000008b0| 65 09 09 2d 3e 20 20 54 | 61 72 67 65 74 20 66 69 |e..->  T|arget fi|
|000008c0| 6c 65 20 6e 61 6d 65 2e | 09 09 20 20 09 09 20 20 |le name.|..  ..  |
|000008d0| 7d 0d 20 20 7b 09 09 09 | 09 20 20 76 6f 6c 75 6d |}.  {...|.  volum|
|000008e0| 65 09 2d 3e 09 56 6f 6c | 75 6d 65 20 72 65 66 65 |e.->.Vol|ume refe|
|000008f0| 72 65 6e 63 65 20 6e 75 | 6d 62 65 72 20 6f 66 20 |rence nu|mber of |
|00000900| 66 69 6c 65 09 20 20 7d | 0d 20 20 7b 20 20 20 20 |file.  }|.  {    |
|00000910| 09 09 09 20 20 66 43 72 | 65 61 74 6f 72 09 2d 3e |...  fCr|eator.->|
|00000920| 20 20 41 6e 20 4f 53 54 | 79 70 65 2e 09 09 09 09 |  An OST|ype.....|
|00000930| 09 09 20 20 7d 0d 20 20 | 7b 09 09 09 09 20 20 66 |..  }.  |{....  f|
|00000940| 54 79 70 65 20 09 2d 3e | 20 09 41 6e 20 4f 53 54 |Type .->| .An OST|
|00000950| 79 70 65 2e 09 09 09 09 | 09 09 20 20 7d 0d 20 20 |ype.....|..  }.  |
|00000960| 7b 20 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |{ ------|--------|
|00000970| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000980| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000990| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 20 |--------|------- |
|000009a0| 7d 0d 20 20 7b 20 20 52 | 65 74 75 72 6e 73 20 3a |}.  {  R|eturns :|
|000009b0| 3a 20 20 56 4f 49 44 2e | 09 09 09 09 09 20 20 20 |:  VOID.|.....   |
|000009c0| 20 09 09 09 09 09 20 20 | 7d 0d 20 20 7b 20 2d 2d | .....  |}.  { --|
|000009d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000009e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000009f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000a00| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 20 7d 0d 0d 20 |--------|--- }.. |
|00000a10| 20 50 52 4f 43 45 44 55 | 52 45 20 42 69 6e 64 49 | PROCEDU|RE BindI|
|00000a20| 63 6f 6e 3b 0d 0d 09 56 | 41 52 0d 09 20 20 72 65 |con;...V|AR..  re|
|00000a30| 73 75 6c 74 20 3a 20 4f | 53 45 72 72 3b 0d 09 20 |sult : O|SErr;.. |
|00000a40| 20 66 69 6e 64 65 72 49 | 6e 66 6f 20 3a 20 46 49 | finderI|nfo : FI|
|00000a50| 6e 66 6f 3b 0d 0d 20 20 | 42 45 47 49 4e 20 7b 20 |nfo;..  |BEGIN { |
|00000a60| 42 69 6e 64 49 63 6f 6e | 20 7d 0d 09 72 65 73 75 |BindIcon| }..resu|
|00000a70| 6c 74 20 3a 3d 20 47 65 | 74 46 49 6e 66 6f 28 66 |lt := Ge|tFInfo(f|
|00000a80| 4e 61 6d 65 2c 20 76 6f | 6c 75 6d 65 2c 20 66 69 |Name, vo|lume, fi|
|00000a90| 6e 64 65 72 49 6e 66 6f | 29 3b 0d 09 66 69 6e 64 |nderInfo|);..find|
|00000aa0| 65 72 49 6e 66 6f 2e 66 | 64 43 72 65 61 74 6f 72 |erInfo.f|dCreator|
|00000ab0| 20 3a 3d 20 66 69 6c 65 | 43 72 65 61 74 6f 72 3b | := file|Creator;|
|00000ac0| 0d 09 66 69 6e 64 65 72 | 49 6e 66 6f 2e 66 64 54 |..finder|Info.fdT|
|00000ad0| 79 70 65 20 3a 3d 20 66 | 69 6c 65 54 79 70 65 3b |ype := f|ileType;|
|00000ae0| 0d 09 72 65 73 75 6c 74 | 20 3a 3d 20 53 65 74 46 |..result| := SetF|
|00000af0| 49 6e 66 6f 28 66 6e 61 | 6d 65 2c 20 76 6f 6c 75 |Info(fna|me, volu|
|00000b00| 6d 65 2c 20 66 69 6e 64 | 65 72 49 6e 66 6f 29 3b |me, find|erInfo);|
|00000b10| 0d 20 20 45 4e 44 3b 20 | 20 7b 20 42 69 6e 64 49 |.  END; | { BindI|
|00000b20| 63 6f 6e 20 7d 0d 0d 0d | 20 20 7b 20 2d 2d 2d 2d |con }...|  { ----|
|00000b30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000b40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000b50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000b60| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 20 7d 0d 20 20 7b 20 |--------|- }.  { |
|00000b70| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000b80| 20 3e 3e 3e 20 50 52 4f | 43 45 44 55 52 45 20 20 | >>> PRO|CEDURE  |
|00000b90| 44 69 61 6c 6f 67 4d 65 | 73 73 61 67 65 20 3c 3c |DialogMe|ssage <<|
|00000ba0| 3c 20 20 20 20 20 20 20 | 20 20 20 09 20 20 7d 0d |<       |   .  }.|
|00000bb0| 20 20 7b 20 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |  { ----|--------|
|00000bc0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000bd0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000be0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000bf0| 2d 20 7d 0d 20 20 7b 20 | 20 50 75 72 70 6f 73 65 |- }.  { | Purpose|
|00000c00| 3a 20 44 69 73 70 6c 61 | 79 20 6d 65 73 73 61 67 |: Displa|y messag|
|00000c10| 65 73 20 69 6e 20 61 20 | 64 69 61 6c 6f 67 20 62 |es in a |dialog b|
|00000c20| 6f 78 20 66 6f 72 20 74 | 68 65 20 75 73 65 72 2e |ox for t|he user.|
|00000c30| 09 20 20 7d 0d 20 20 7b | 20 2d 2d 2d 2d 2d 2d 2d |.  }.  {| -------|
|00000c40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000c50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000c60| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000c70| 2d 2d 2d 2d 2d 2d 20 7d | 0d 20 20 7b 20 20 43 61 |------ }|.  {  Ca|
|00000c80| 6c 6c 65 72 20 20 3a 3a | 20 20 41 6e 79 20 75 73 |ller  ::|  Any us|
|00000c90| 65 72 20 6d 6f 64 75 6c | 65 2e 09 09 09 09 09 09 |er modul|e.......|
|00000ca0| 09 09 20 20 7d 0d 20 20 | 7b 20 2d 2d 2d 2d 2d 2d |..  }.  |{ ------|
|00000cb0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000cc0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000cd0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000ce0| 2d 2d 2d 2d 2d 2d 2d 20 | 7d 0d 20 20 7b 20 20 41 |------- |}.  {  A|
|00000cf0| 72 67 75 6d 65 6e 74 73 | 20 3a 3a 20 50 74 72 20 |rguments| :: Ptr |
|00000d00| 09 20 20 2d 3e 20 20 50 | 6f 69 6e 74 65 72 20 74 |.  ->  P|ointer t|
|00000d10| 6f 20 74 68 65 20 74 61 | 72 67 65 74 20 64 69 61 |o the ta|rget dia|
|00000d20| 6c 6f 67 2e 09 09 20 20 | 7d 0d 20 20 7b 20 20 20 |log...  |}.  {   |
|00000d30| 20 09 09 09 20 20 49 74 | 65 6d 4e 75 6d 20 2d 3e | ...  It|emNum ->|
|00000d40| 20 20 49 44 20 6f 66 20 | 73 6c 6f 74 20 74 6f 20 |  ID of |slot to |
|00000d50| 69 6e 73 65 72 74 20 6d | 65 73 73 61 67 65 2e 09 |insert m|essage..|
|00000d60| 09 20 20 7d 0d 20 20 7b | 09 09 09 09 20 20 4d 65 |.  }.  {|....  Me|
|00000d70| 73 73 61 67 65 20 2d 3e | 20 20 4d 65 73 73 61 67 |ssage ->|  Messag|
|00000d80| 65 20 74 6f 20 62 65 20 | 64 69 73 70 6c 61 79 65 |e to be |displaye|
|00000d90| 64 2e 09 09 09 20 20 7d | 0d 20 20 7b 20 2d 2d 2d |d....  }|.  { ---|
|00000da0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000db0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000dc0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000dd0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 20 7d 0d 20 20 7b |--------|-- }.  {|
|00000de0| 20 20 52 65 74 75 72 6e | 73 20 3a 3a 20 20 56 4f |  Return|s ::  VO|
|00000df0| 49 44 2e 09 09 09 09 09 | 09 09 09 09 09 09 20 20 |ID......|......  |
|00000e00| 7d 0d 20 20 7b 20 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |}.  { --|--------|
|00000e10| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000e20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000e30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000e40| 2d 2d 2d 20 7d 0d 0d 20 | 20 50 52 4f 43 45 44 55 |--- }.. | PROCEDU|
|00000e50| 52 45 20 44 69 61 6c 6f | 67 4d 65 73 73 61 67 65 |RE Dialo|gMessage|
|00000e60| 3b 0d 0d 20 20 20 20 56 | 41 52 0d 09 20 20 69 74 |;..    V|AR..  it|
|00000e70| 65 6d 54 79 70 65 20 09 | 3a 20 69 6e 74 65 67 65 |emType .|: intege|
|00000e80| 72 3b 09 09 7b 20 54 79 | 70 65 20 6f 66 20 74 68 |r;..{ Ty|pe of th|
|00000e90| 69 6e 67 20 74 6f 20 63 | 68 61 6e 67 65 09 09 7d |ing to c|hange..}|
|00000ea0| 0d 09 20 20 69 74 65 6d | 20 09 09 3a 20 48 61 6e |..  item| ..: Han|
|00000eb0| 64 6c 65 3b 09 09 7b 20 | 50 6f 69 6e 74 65 72 20 |dle;..{ |Pointer |
|00000ec0| 74 6f 20 74 65 78 74 20 | 74 6f 20 63 68 61 6e 67 |to text |to chang|
|00000ed0| 65 09 09 7d 0d 09 20 20 | 62 6f 78 20 09 09 3a 20 |e..}..  |box ..: |
|00000ee0| 52 65 63 74 3b 09 09 09 | 7b 20 42 6f 75 6e 64 73 |Rect;...|{ Bounds|
|00000ef0| 20 6f 66 20 74 65 78 74 | 20 74 6f 20 63 68 61 6e | of text| to chan|
|00000f00| 67 65 09 09 7d 0d 0d 09 | 42 45 47 49 4e 20 7b 20 |ge..}...|BEGIN { |
|00000f10| 44 69 61 6c 6f 67 4d 65 | 73 73 61 67 65 20 7d 0d |DialogMe|ssage }.|
|00000f20| 09 20 20 7b 20 53 65 74 | 20 6d 65 73 73 61 67 65 |.  { Set| message|
|00000f30| 20 6c 69 6e 65 20 7d 0d | 09 20 20 47 65 74 44 49 | line }.|.  GetDI|
|00000f40| 74 65 6d 28 44 50 74 72 | 2c 20 49 74 65 6d 4e 75 |tem(DPtr|, ItemNu|
|00000f50| 6d 2c 20 69 74 65 6d 54 | 79 70 65 2c 20 69 74 65 |m, itemT|ype, ite|
|00000f60| 6d 2c 20 62 6f 78 29 3b | 0d 09 20 20 53 65 74 49 |m, box);|..  SetI|
|00000f70| 54 65 78 74 28 69 74 65 | 6d 2c 20 4d 65 73 73 61 |Text(ite|m, Messa|
|00000f80| 67 65 29 3b 0d 09 45 4e | 44 3b 20 20 7b 20 44 69 |ge);..EN|D;  { Di|
|00000f90| 61 6c 6f 67 4d 65 73 73 | 61 67 65 20 7d 0d 0d 0d |alogMess|age }...|
|00000fa0| 20 20 7b 20 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |  { ----|--------|
|00000fb0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000fc0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000fd0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000fe0| 2d 20 7d 0d 20 20 7b 20 | 20 20 20 20 20 20 20 20 |- }.  { |        |
|00000ff0| 20 20 20 20 20 20 20 20 | 20 20 3e 3e 3e 20 46 75 |        |  >>> Fu|
|00001000| 6e 63 74 69 6f 6e 20 47 | 65 74 46 69 6c 65 4e 61 |nction G|etFileNa|
|00001010| 6d 65 20 3c 3c 3c 20 20 | 20 20 20 20 20 20 20 20 |me <<<  |        |
|00001020| 09 20 20 7d 0d 20 20 7b | 20 2d 2d 2d 2d 2d 2d 2d |.  }.  {| -------|
|00001030| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001040| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001050| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001060| 2d 2d 2d 2d 2d 2d 20 7d | 0d 20 20 7b 20 20 50 75 |------ }|.  {  Pu|
|00001070| 72 70 6f 73 65 3a 20 50 | 72 6f 6d 70 74 20 75 73 |rpose: P|rompt us|
|00001080| 65 72 20 74 6f 20 73 65 | 6c 65 63 74 20 61 20 66 |er to se|lect a f|
|00001090| 69 6c 65 20 6e 61 6d 65 | 20 66 6f 72 20 69 6e 70 |ile name| for inp|
|000010a0| 75 74 20 2a 4f 52 2a 20 | 09 20 20 7d 0d 20 20 7b |ut *OR* |.  }.  {|
|000010b0| 09 09 09 20 20 6f 75 74 | 70 75 74 2e 20 54 68 65 |...  out|put. The|
|000010c0| 20 6d 6f 64 65 20 6f 66 | 20 49 2f 4f 20 69 73 20 | mode of| I/O is |
|000010d0| 73 70 65 63 69 66 69 65 | 64 20 74 68 72 75 20 74 |specifie|d thru t|
|000010e0| 68 65 20 09 20 20 7d 0d | 20 20 7b 09 09 09 20 20 |he .  }.|  {...  |
|000010f0| 22 6d 6f 64 65 22 20 76 | 61 72 69 61 62 6c 65 2e |"mode" v|ariable.|
|00001100| 20 20 49 66 20 74 68 65 | 20 69 6e 70 75 74 20 28 |  If the| input (|
|00001110| 27 49 27 29 20 6d 6f 64 | 65 20 69 73 20 09 09 20 |'I') mod|e is .. |
|00001120| 20 7d 0d 20 20 7b 09 09 | 09 20 20 73 65 6c 65 63 | }.  {..|.  selec|
|00001130| 74 65 64 2c 20 74 68 65 | 6e 20 6f 6e 6c 79 20 66 |ted, the|n only f|
|00001140| 69 6c 65 73 20 6f 66 20 | 61 20 67 69 76 65 6e 20 |iles of |a given |
|00001150| 22 66 54 79 70 65 22 20 | 61 72 65 20 09 20 20 7d |"fType" |are .  }|
|00001160| 0d 20 20 7b 09 09 09 20 | 20 64 69 73 70 6c 61 79 |.  {... | display|
|00001170| 65 64 3b 20 20 77 68 65 | 6e 20 69 6e 20 4f 75 74 |ed;  whe|n in Out|
|00001180| 70 75 74 20 28 27 4f 27 | 29 20 6d 6f 64 65 2c 20 |put ('O'|) mode, |
|00001190| 74 68 69 73 20 09 09 20 | 20 7d 0d 20 20 7b 09 09 |this .. | }.  {..|
|000011a0| 09 20 20 70 61 72 61 6d | 65 74 65 72 20 69 73 20 |.  param|eter is |
|000011b0| 69 67 6e 6f 72 65 64 2e | 09 09 09 09 09 09 09 09 |ignored.|........|
|000011c0| 20 20 7d 0d 20 20 7b 20 | 2d 2d 2d 2d 2d 2d 2d 2d |  }.  { |--------|
|000011d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000011e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000011f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001200| 2d 2d 2d 2d 2d 20 7d 0d | 20 20 7b 20 20 43 61 6c |----- }.|  {  Cal|
|00001210| 6c 65 72 20 20 3a 3a 20 | 20 41 6e 79 20 75 73 65 |ler  :: | Any use|
|00001220| 72 20 6d 6f 64 75 6c 65 | 2e 09 09 09 09 09 09 09 |r module|........|
|00001230| 09 20 20 7d 0d 20 20 7b | 20 2d 2d 2d 2d 2d 2d 2d |.  }.  {| -------|
|00001240| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001250| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001260| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001270| 2d 2d 2d 2d 2d 2d 20 7d | 0d 20 20 7b 20 20 41 72 |------ }|.  {  Ar|
|00001280| 67 75 6d 65 6e 74 73 20 | 3a 3a 20 6d 6f 64 65 20 |guments |:: mode |
|00001290| 20 20 20 20 20 20 2d 3e | 20 20 43 68 61 72 61 63 |      ->|  Charac|
|000012a0| 74 65 72 20 27 49 27 20 | 6f 72 20 27 4f 27 20 09 |ter 'I' |or 'O' .|
|000012b0| 09 09 20 20 7d 0d 20 20 | 7b 09 09 09 09 20 20 66 |..  }.  |{....  f|
|000012c0| 54 79 70 65 20 20 20 20 | 20 20 2d 3e 20 20 4f 53 |Type    |  ->  OS|
|000012d0| 54 79 70 65 20 6f 66 20 | 66 69 6c 65 20 74 6f 20 |Type of |file to |
|000012e0| 73 63 61 6e 20 66 6f 72 | 2e 09 20 20 7d 0d 20 20 |scan for|..  }.  |
|000012f0| 7b 09 09 09 09 20 20 6d | 65 73 73 61 67 65 53 74 |{....  m|essageSt|
|00001300| 72 20 2d 3e 20 20 53 75 | 70 70 6c 65 6d 65 6e 74 |r ->  Su|pplement|
|00001310| 61 6c 20 73 74 72 69 6e | 67 20 6d 65 73 73 61 67 |al strin|g messag|
|00001320| 65 2e 09 20 20 7d 0d 20 | 20 7b 20 20 20 20 09 09 |e..  }. | {    ..|
|00001330| 09 20 20 66 69 6c 65 4e | 61 6d 65 20 20 20 2d 3e |.  fileN|ame   ->|
|00001340| 20 20 52 65 74 75 72 6e | 65 64 20 69 66 20 75 73 |  Return|ed if us|
|00001350| 65 72 20 63 6c 69 63 6b | 73 20 4f 4b 2e 09 20 20 |er click|s OK..  |
|00001360| 7d 0d 20 20 7b 20 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |}.  { --|--------|
|00001370| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001380| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001390| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000013a0| 2d 2d 2d 20 7d 0d 20 20 | 7b 20 20 52 65 74 75 72 |--- }.  |{  Retur|
|000013b0| 6e 73 20 3a 3a 20 20 42 | 6f 6f 6c 65 61 6e 20 56 |ns ::  B|oolean V|
|000013c0| 61 6c 75 65 20 2d 2d 3e | 20 46 61 6c 73 65 20 69 |alue -->| False i|
|000013d0| 66 20 75 73 65 72 20 63 | 61 6e 63 65 6c 73 2c 20 |f user c|ancels, |
|000013e0| 74 72 75 65 20 09 20 20 | 7d 0d 20 20 7b 09 09 09 |true .  |}.  {...|
|000013f0| 09 09 09 09 09 20 20 20 | 6f 74 68 65 72 77 69 73 |.....   |otherwis|
|00001400| 65 2e 09 09 09 09 09 20 | 20 7d 0d 20 20 7b 20 2d |e...... | }.  { -|
|00001410| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001420| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001430| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001440| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 20 7d 0d 0d |--------|---- }..|
|00001450| 20 20 46 55 4e 43 54 49 | 4f 4e 20 47 65 74 46 69 |  FUNCTI|ON GetFi|
|00001460| 6c 65 4e 61 6d 65 3b 0d | 0d 09 43 4f 4e 53 54 0d |leName;.|..CONST.|
|00001470| 09 20 20 53 75 70 70 49 | 6e 70 75 74 42 6f 78 20 |.  SuppI|nputBox |
|00001480| 3d 20 33 30 32 3b 09 09 | 7b 20 4d 79 20 73 75 70 |= 302;..|{ My sup|
|00001490| 70 6c 65 6d 65 6e 74 61 | 6c 69 6e 70 75 74 20 77 |plementa|linput w|
|000014a0| 69 6e 64 6f 77 20 49 44 | 09 7d 0d 09 20 20 53 75 |indow ID|.}..  Su|
|000014b0| 70 70 4f 75 74 70 75 74 | 42 6f 78 20 3d 20 33 30 |ppOutput|Box = 30|
|000014c0| 31 3b 09 09 7b 20 4d 79 | 20 73 75 70 70 6c 65 6d |1;..{ My| supplem|
|000014d0| 65 6e 74 61 6c 6f 75 74 | 70 75 74 20 77 69 6e 64 |entalout|put wind|
|000014e0| 6f 77 20 49 44 09 7d 0d | 09 20 20 49 6e 70 75 74 |ow ID.}.|.  Input|
|000014f0| 20 3d 20 27 49 27 3b 09 | 09 09 09 7b 20 42 72 69 | = 'I';.|...{ Bri|
|00001500| 6e 67 20 75 70 20 69 6e | 70 75 74 20 64 69 61 6c |ng up in|put dial|
|00001510| 6f 67 20 62 6f 78 20 20 | 20 20 20 20 20 20 20 7d |og box  |       }|
|00001520| 0d 09 20 20 4f 75 74 70 | 75 74 20 3d 20 27 4f 27 |..  Outp|ut = 'O'|
|00001530| 3b 09 09 09 09 7b 20 42 | 72 69 6e 67 20 75 70 20 |;....{ B|ring up |
|00001540| 6f 75 74 70 75 74 20 28 | 73 61 76 65 29 20 64 69 |output (|save) di|
|00001550| 61 6c 6f 67 20 62 6f 78 | 20 7d 0d 09 20 20 53 46 |alog box| }..  SF|
|00001560| 49 6e 70 75 74 57 69 64 | 74 68 20 3d 20 33 34 38 |InputWid|th = 348|
|00001570| 3b 09 09 7b 20 4c 65 6e | 67 74 68 20 6f 66 20 73 |;..{ Len|gth of s|
|00001580| 79 73 74 65 6d 27 73 20 | 64 69 61 6c 6f 67 20 77 |ystem's |dialog w|
|00001590| 69 6e 64 6f 77 20 09 7d | 0d 09 20 20 53 46 49 6e |indow .}|..  SFIn|
|000015a0| 70 75 74 48 65 69 67 68 | 74 20 3d 20 32 30 30 3b |putHeigh|t = 200;|
|000015b0| 09 09 7b 20 49 74 27 73 | 20 68 65 69 67 68 74 20 |..{ It's| height |
|000015c0| 09 09 09 09 09 20 20 20 | 20 7d 0d 09 20 20 53 46 |.....   | }..  SF|
|000015d0| 4f 75 74 70 75 74 57 69 | 64 74 68 20 3d 20 33 30 |OutputWi|dth = 30|
|000015e0| 34 3b 09 09 7b 20 44 69 | 74 74 6f 09 09 09 09 09 |4;..{ Di|tto.....|
|000015f0| 09 09 09 7d 0d 09 20 20 | 53 46 4f 75 74 70 75 74 |...}..  |SFOutput|
|00001600| 48 65 69 67 68 74 20 3d | 20 31 38 34 3b 09 09 7b |Height =| 184;..{|
|00001610| 20 44 69 74 74 6f 20 20 | 20 20 20 20 20 20 20 09 | Ditto  |       .|
|00001620| 09 09 09 09 7d 0d 09 20 | 20 42 75 6d 70 55 70 20 |....}.. | BumpUp |
|00001630| 3d 20 34 30 3b 20 20 20 | 20 20 20 20 20 20 09 09 |= 40;   |      ..|
|00001640| 7b 20 53 65 74 20 64 65 | 66 61 75 6c 74 20 62 75 |{ Set de|fault bu|
|00001650| 6d 70 2d 75 70 20 66 61 | 63 74 6f 72 09 09 7d 0d |mp-up fa|ctor..}.|
|00001660| 09 20 20 53 65 70 61 72 | 61 74 69 6f 6e 20 3d 20 |.  Separ|ation = |
|00001670| 32 30 3b 20 09 09 09 7b | 20 50 69 78 65 6c 73 20 |20; ...{| Pixels |
|00001680| 62 65 6c 6f 77 20 64 69 | 61 6c 6f 67 20 74 6f 20 |below di|alog to |
|00001690| 70 75 74 20 4d 59 20 62 | 6f 78 09 7d 0d 0d 09 56 |put MY b|ox.}...V|
|000016a0| 41 52 0d 09 20 20 77 68 | 65 72 65 20 09 09 09 09 |AR..  wh|ere ....|
|000016b0| 09 3a 20 50 6f 69 6e 74 | 3b 09 09 7b 20 57 68 65 |.: Point|;..{ Whe|
|000016c0| 72 65 20 74 6f 20 70 6c | 61 63 65 20 74 68 65 20 |re to pl|ace the |
|000016d0| 49 2f 4f 20 77 69 6e 64 | 6f 77 09 20 20 20 20 20 |I/O wind|ow.     |
|000016e0| 7d 0d 09 20 20 72 65 70 | 6c 79 20 09 09 09 09 09 |}..  rep|ly .....|
|000016f0| 3a 20 53 46 52 65 70 6c | 79 3b 09 09 7b 20 49 6e |: SFRepl|y;..{ In|
|00001700| 66 6f 20 66 72 6f 6d 20 | 52 4f 4d 73 20 61 62 6f |fo from |ROMs abo|
|00001710| 75 74 20 75 73 65 72 20 | 61 63 74 69 6f 6e 20 20 |ut user |action  |
|00001720| 20 7d 0d 09 20 20 46 69 | 6c 65 54 79 70 65 20 09 | }..  Fi|leType .|
|00001730| 09 09 09 09 3a 20 53 46 | 54 79 70 65 4c 69 73 74 |....: SF|TypeList|
|00001740| 3b 09 7b 20 4f 53 54 79 | 70 65 73 20 74 6f 20 66 |;.{ OSTy|pes to f|
|00001750| 69 6c 74 65 72 09 69 6e | 20 73 63 72 6f 6c 6c 2d |ilter.in| scroll-|
|00001760| 62 6f 78 20 20 20 20 7d | 0d 09 20 20 66 69 6c 65 |box    }|..  file|
|00001770| 46 69 6c 74 65 72 2c 20 | 6f 74 68 65 72 44 69 61 |Filter, |otherDia|
|00001780| 6c 6f 67 20 09 3a 20 50 | 72 6f 63 50 74 72 3b 09 |log .: P|rocPtr;.|
|00001790| 09 7b 20 49 6e 64 69 72 | 65 63 74 20 66 75 6e 63 |.{ Indir|ect func|
|000017a0| 28 29 20 63 61 6c 6c 2c | 20 49 20 64 6f 6e 27 74 |() call,| I don't|
|000017b0| 20 75 73 65 09 20 7d 0d | 09 20 20 76 61 72 69 61 | use. }.|.  varia|
|000017c0| 6e 74 20 09 09 09 09 09 | 3a 20 56 48 53 65 6c 65 |nt .....|: VHSele|
|000017d0| 63 74 3b 09 09 7b 20 56 | 61 72 69 61 6e 74 20 6f |ct;..{ V|ariant o|
|000017e0| 66 20 77 68 65 72 65 20 | 74 6f 20 70 6c 61 63 65 |f where |to place|
|000017f0| 20 49 2f 4f 20 62 6f 78 | 09 20 7d 0d 09 20 20 4f | I/O box|. }..  O|
|00001800| 53 72 65 73 75 6c 74 20 | 09 09 09 09 09 3a 20 4f |Sresult |.....: O|
|00001810| 53 45 72 72 3b 09 09 7b | 20 53 65 74 20 63 75 72 |SErr;..{| Set cur|
|00001820| 72 65 6e 74 20 64 69 72 | 20 74 6f 20 64 65 66 61 |rent dir| to defa|
|00001830| 75 6c 74 20 66 6f 6c 64 | 65 72 20 20 7d 0d 09 20 |ult fold|er  }.. |
|00001840| 20 65 6d 70 74 79 50 74 | 72 20 09 09 09 09 09 3a | emptyPt|r .....:|
|00001850| 20 53 74 72 69 6e 67 50 | 74 72 3b 09 7b 20 53 65 | StringP|tr;.{ Se|
|00001860| 74 20 74 6f 20 4e 49 4c | 20 66 6f 72 20 53 74 64 |t to NIL| for Std|
|00001870| 20 46 69 6c 65 20 50 6b | 67 20 69 6e 20 52 4f 4d | File Pk|g in ROM|
|00001880| 20 7d 0d 09 20 20 6d 65 | 73 73 61 67 65 42 6f 78 | }..  me|ssageBox|
|00001890| 20 09 09 09 09 3a 20 44 | 69 61 6c 6f 67 50 74 72 | ....: D|ialogPtr|
|000018a0| 3b 09 7b 20 50 74 72 20 | 74 6f 20 6d 79 20 73 75 |;.{ Ptr |to my su|
|000018b0| 70 70 6c 65 6d 65 6e 74 | 61 6c 20 6d 65 73 73 61 |pplement|al messa|
|000018c0| 67 65 20 62 6f 78 20 7d | 0d 09 20 20 63 65 6e 74 |ge box }|..  cent|
|000018d0| 65 72 54 6f 70 2c 20 63 | 65 6e 74 65 72 4c 65 66 |erTop, c|enterLef|
|000018e0| 74 09 09 3a 20 69 6e 74 | 65 67 65 72 3b 09 09 7b |t..: int|eger;..{|
|000018f0| 20 4e 65 77 20 67 6c 6f | 62 61 6c 20 63 6f 6f 72 | New glo|bal coor|
|00001900| 64 69 6e 61 74 65 73 20 | 6f 66 20 68 6f 6d 65 20 |dinates |of home |
|00001910| 70 6f 73 20 7d 0d 09 20 | 20 70 69 78 65 6c 73 20 |pos }.. | pixels |
|00001920| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001930| 20 09 3a 20 69 6e 74 65 | 67 65 72 3b 09 09 7b 20 | .: inte|ger;..{ |
|00001940| 4d 6f 76 65 20 64 69 61 | 6c 6f 67 20 75 70 20 66 |Move dia|log up f|
|00001950| 72 6f 6d 20 63 65 6e 74 | 65 72 20 09 09 20 7d 0d |rom cent|er .. }.|
|00001960| 09 20 20 74 65 6d 70 20 | 20 20 20 20 20 20 20 20 |.  temp |        |
|00001970| 20 20 20 20 20 20 20 20 | 20 20 20 09 3a 20 72 65 |        |   .: re|
|00001980| 61 6c 3b 09 09 09 7b 20 | 4e 65 65 64 65 64 20 62 |al;...{ |Needed b|
|00001990| 65 63 61 75 73 65 20 6f | 66 20 74 72 75 6e 63 28 |ecause o|f trunc(|
|000019a0| 29 20 62 75 67 09 09 20 | 7d 0d 0d 09 42 45 47 49 |) bug.. |}...BEGI|
|000019b0| 4e 20 7b 20 47 65 74 46 | 69 6c 65 4e 61 6d 65 20 |N { GetF|ileName |
|000019c0| 7d 0d 20 20 20 20 20 20 | 7b 20 53 65 74 20 74 68 |}.      |{ Set th|
|000019d0| 65 20 70 6f 73 69 74 69 | 6f 6e 20 6f 66 20 74 68 |e positi|on of th|
|000019e0| 65 20 4f 70 65 6e 20 64 | 69 61 6c 6f 67 20 62 6f |e Open d|ialog bo|
|000019f0| 78 20 7d 0d 09 20 20 43 | 41 53 45 20 6d 6f 64 65 |x }..  C|ASE mode|
|00001a00| 20 4f 46 0d 09 09 49 6e | 70 75 74 3a 20 42 45 47 | OF...In|put: BEG|
|00001a10| 49 4e 0d 09 09 09 20 20 | 20 20 63 65 6e 74 65 72 |IN....  |  center|
|00001a20| 54 6f 70 20 3a 3d 20 28 | 73 63 72 65 65 6e 62 69 |Top := (|screenbi|
|00001a30| 74 73 2e 62 6f 75 6e 64 | 73 2e 62 6f 74 74 6f 6d |ts.bound|s.bottom|
|00001a40| 20 2d 20 53 46 49 6e 70 | 75 74 48 65 69 67 68 74 | - SFInp|utHeight|
|00001a50| 29 20 64 69 76 20 32 3b | 0d 09 09 09 20 20 20 20 |) div 2;|....    |
|00001a60| 63 65 6e 74 65 72 4c 65 | 66 74 20 3a 3d 20 28 73 |centerLe|ft := (s|
|00001a70| 63 72 65 65 6e 62 69 74 | 73 2e 62 6f 75 6e 64 73 |creenbit|s.bounds|
|00001a80| 2e 72 69 67 68 74 20 2d | 20 53 46 49 6e 70 75 74 |.right -| SFInput|
|00001a90| 57 69 64 74 68 29 20 20 | 64 69 76 20 32 3b 0d 09 |Width)  |div 2;..|
|00001aa0| 09 09 20 20 45 4e 44 3b | 0d 09 09 4f 75 74 70 75 |..  END;|...Outpu|
|00001ab0| 74 3a 20 42 45 47 49 4e | 0d 09 09 09 20 20 20 20 |t: BEGIN|....    |
|00001ac0| 20 63 65 6e 74 65 72 54 | 6f 70 20 3a 3d 20 28 73 | centerT|op := (s|
|00001ad0| 63 72 65 65 6e 62 69 74 | 73 2e 62 6f 75 6e 64 73 |creenbit|s.bounds|
|00001ae0| 2e 62 6f 74 74 6f 6d 20 | 2d 20 53 46 4f 75 74 70 |.bottom |- SFOutp|
|00001af0| 75 74 48 65 69 67 68 74 | 29 20 64 69 76 20 32 3b |utHeight|) div 2;|
|00001b00| 0d 09 09 09 20 20 20 20 | 20 63 65 6e 74 65 72 4c |....    | centerL|
|00001b10| 65 66 74 20 3a 3d 20 28 | 73 63 72 65 65 6e 62 69 |eft := (|screenbi|
|00001b20| 74 73 2e 62 6f 75 6e 64 | 73 2e 72 69 67 68 74 20 |ts.bound|s.right |
|00001b30| 2d 20 53 46 4f 75 74 70 | 75 74 57 69 64 74 68 29 |- SFOutp|utWidth)|
|00001b40| 20 20 64 69 76 20 32 3b | 0d 09 09 09 20 20 45 4e |  div 2;|....  EN|
|00001b50| 44 3b 0d 09 09 4f 54 48 | 45 52 57 49 53 45 20 3b |D;...OTH|ERWISE ;|
|00001b60| 0d 09 20 20 45 4e 44 3b | 20 20 7b 20 63 61 73 65 |..  END;|  { case|
|00001b70| 20 7d 0d 09 20 20 74 65 | 6d 70 20 3a 3d 20 63 65 | }..  te|mp := ce|
|00001b80| 6e 74 65 72 54 6f 70 20 | 2a 20 28 42 75 6d 70 55 |nterTop |* (BumpU|
|00001b90| 70 20 2f 20 31 30 30 2e | 30 29 3b 0d 09 20 20 70 |p / 100.|0);..  p|
|00001ba0| 69 78 65 6c 73 20 3a 3d | 20 74 72 75 6e 63 28 74 |ixels :=| trunc(t|
|00001bb0| 65 6d 70 29 3b 0d 09 20 | 20 63 65 6e 74 65 72 54 |emp);.. | centerT|
|00001bc0| 6f 70 20 3a 3d 20 63 65 | 6e 74 65 72 54 6f 70 20 |op := ce|nterTop |
|00001bd0| 2d 20 70 69 78 65 6c 73 | 3b 0d 09 20 20 77 68 65 |- pixels|;..  whe|
|00001be0| 72 65 2e 76 20 3a 3d 20 | 63 65 6e 74 65 72 54 6f |re.v := |centerTo|
|00001bf0| 70 3b 0d 09 20 20 77 68 | 65 72 65 2e 68 20 3a 3d |p;..  wh|ere.h :=|
|00001c00| 20 63 65 6e 74 65 72 4c | 65 66 74 3b 0d 09 20 20 | centerL|eft;..  |
|00001c10| 76 61 72 69 61 6e 74 20 | 3a 3d 20 76 3b 0d 09 20 |variant |:= v;.. |
|00001c20| 20 77 68 65 72 65 2e 76 | 68 5b 76 61 72 69 61 6e | where.v|h[varian|
|00001c30| 74 5d 20 3a 3d 20 63 65 | 6e 74 65 72 54 6f 70 3b |t] := ce|nterTop;|
|00001c40| 0d 09 20 20 76 61 72 69 | 61 6e 74 20 3a 3d 20 68 |..  vari|ant := h|
|00001c50| 3b 0d 09 20 20 77 68 65 | 72 65 2e 76 68 5b 76 61 |;..  whe|re.vh[va|
|00001c60| 72 69 61 6e 74 5d 20 3a | 3d 20 63 65 6e 74 65 72 |riant] :|= center|
|00001c70| 4c 65 66 74 3b 0d 20 20 | 20 20 20 20 7b 20 43 6f |Left;.  |    { Co|
|00001c80| 6e 73 69 64 65 72 20 6f | 6e 6c 79 20 66 69 6c 65 |nsider o|nly file|
|00001c90| 20 74 79 70 65 73 20 73 | 70 65 63 69 66 69 65 64 | types s|pecified|
|00001ca0| 20 62 79 20 74 68 65 20 | 75 73 65 72 21 20 7d 0d | by the |user! }.|
|00001cb0| 09 20 20 46 69 6c 65 54 | 79 70 65 5b 30 5d 20 3a |.  FileT|ype[0] :|
|00001cc0| 3d 20 66 54 79 70 65 3b | 0d 09 20 20 46 69 6c 65 |= fType;|..  File|
|00001cd0| 54 79 70 65 5b 31 5d 20 | 3a 3d 20 66 54 79 70 65 |Type[1] |:= fType|
|00001ce0| 3b 0d 09 20 20 46 69 6c | 65 54 79 70 65 5b 32 5d |;..  Fil|eType[2]|
|00001cf0| 20 3a 3d 20 66 54 79 70 | 65 3b 0d 09 20 20 46 69 | := fTyp|e;..  Fi|
|00001d00| 6c 65 54 79 70 65 5b 33 | 5d 20 3a 3d 20 66 54 79 |leType[3|] := fTy|
|00001d10| 70 65 3b 0d 20 20 20 20 | 20 20 7b 20 49 6e 69 74 |pe;.    |  { Init|
|00001d20| 69 61 6c 69 7a 65 20 66 | 75 6e 63 74 69 6f 6e 20 |ialize f|unction |
|00001d30| 70 6f 69 6e 74 65 72 73 | 20 7d 0d 09 20 20 66 69 |pointers| }..  fi|
|00001d40| 6c 65 46 69 6c 74 65 72 | 20 3a 3d 20 4e 49 4c 3b |leFilter| := NIL;|
|00001d50| 0d 09 20 20 6f 74 68 65 | 72 44 69 61 6c 6f 67 20 |..  othe|rDialog |
|00001d60| 3a 3d 20 4e 49 4c 3b 0d | 09 20 20 65 6d 70 74 79 |:= NIL;.|.  empty|
|00001d70| 50 74 72 20 3a 3d 20 4e | 49 4c 3b 0d 20 20 20 20 |Ptr := N|IL;.    |
|00001d80| 20 20 7b 20 42 72 69 6e | 67 20 75 70 20 73 75 70 |  { Brin|g up sup|
|00001d90| 70 6c 69 6d 65 6e 74 61 | 72 79 20 62 6f 78 20 7d |plimenta|ry box }|
|00001da0| 0d 09 20 20 49 46 20 6d | 6f 64 65 20 3d 20 49 6e |..  IF m|ode = In|
|00001db0| 70 75 74 20 54 48 45 4e | 0d 09 09 20 6d 65 73 73 |put THEN|... mess|
|00001dc0| 61 67 65 42 6f 78 20 3a | 3d 20 47 65 74 4e 65 77 |ageBox :|= GetNew|
|00001dd0| 44 69 61 6c 6f 67 28 53 | 75 70 70 49 6e 70 75 74 |Dialog(S|uppInput|
|00001de0| 42 6f 78 2c 20 4e 49 4c | 2c 20 70 6f 69 6e 74 65 |Box, NIL|, pointe|
|00001df0| 72 28 2d 31 29 29 0d 09 | 20 20 45 4c 53 45 0d 09 |r(-1))..|  ELSE..|
|00001e00| 09 20 6d 65 73 73 61 67 | 65 42 6f 78 20 3a 3d 20 |. messag|eBox := |
|00001e10| 47 65 74 4e 65 77 44 69 | 61 6c 6f 67 28 53 75 70 |GetNewDi|alog(Sup|
|00001e20| 70 4f 75 74 70 75 74 42 | 6f 78 2c 20 4e 49 4c 2c |pOutputB|ox, NIL,|
|00001e30| 20 70 6f 69 6e 74 65 72 | 28 2d 31 29 29 3b 0d 09 | pointer|(-1));..|
|00001e40| 20 20 7b 20 50 6c 61 63 | 65 20 6d 79 20 73 75 70 |  { Plac|e my sup|
|00001e50| 70 6c 65 6d 65 6e 74 61 | 6c 20 49 2f 4f 20 62 6f |plementa|l I/O bo|
|00001e60| 78 20 6f 6e 20 74 68 65 | 20 63 6f 72 72 65 63 74 |x on the| correct|
|00001e70| 20 70 6c 61 63 65 20 6f | 6e 20 74 68 65 20 73 63 | place o|n the sc|
|00001e80| 72 65 65 6e 09 7d 0d 09 | 20 20 49 46 20 6d 6f 64 |reen.}..|  IF mod|
|00001e90| 65 20 3d 20 49 6e 70 75 | 74 20 54 48 45 4e 0d 09 |e = Inpu|t THEN..|
|00001ea0| 09 20 4d 6f 76 65 57 69 | 6e 64 6f 77 28 6d 65 73 |. MoveWi|ndow(mes|
|00001eb0| 73 61 67 65 42 6f 78 2c | 20 63 65 6e 74 65 72 4c |sageBox,| centerL|
|00001ec0| 65 66 74 2c 20 28 63 65 | 6e 74 65 72 54 6f 70 20 |eft, (ce|nterTop |
|00001ed0| 2b 20 53 46 49 6e 70 75 | 74 48 65 69 67 68 74 20 |+ SFInpu|tHeight |
|00001ee0| 2b 20 53 65 70 61 72 61 | 74 69 6f 6e 29 2c 20 74 |+ Separa|tion), t|
|00001ef0| 72 75 65 29 0d 09 20 20 | 45 4c 53 45 0d 09 09 20 |rue)..  |ELSE... |
|00001f00| 4d 6f 76 65 57 69 6e 64 | 6f 77 28 6d 65 73 73 61 |MoveWind|ow(messa|
|00001f10| 67 65 42 6f 78 2c 20 63 | 65 6e 74 65 72 4c 65 66 |geBox, c|enterLef|
|00001f20| 74 2c 20 28 63 65 6e 74 | 65 72 54 6f 70 20 2b 20 |t, (cent|erTop + |
|00001f30| 53 46 4f 75 74 70 75 74 | 48 65 69 67 68 74 20 2b |SFOutput|Height +|
|00001f40| 20 53 65 70 61 72 61 74 | 69 6f 6e 29 2c 20 74 72 | Separat|ion), tr|
|00001f50| 75 65 29 3b 0d 20 20 20 | 20 20 20 53 68 6f 77 57 |ue);.   |   ShowW|
|00001f60| 69 6e 64 6f 77 28 6d 65 | 73 73 61 67 65 42 6f 78 |indow(me|ssageBox|
|00001f70| 29 3b 0d 09 20 20 44 69 | 61 6c 6f 67 4d 65 73 73 |);..  Di|alogMess|
|00001f80| 61 67 65 28 6d 65 73 73 | 61 67 65 42 6f 78 2c 20 |age(mess|ageBox, |
|00001f90| 31 2c 20 6d 65 73 73 61 | 67 65 53 74 72 29 3b 0d |1, messa|geStr);.|
|00001fa0| 20 20 20 20 20 20 7b 20 | 42 72 69 6e 67 20 75 70 |      { |Bring up|
|00001fb0| 20 74 68 65 20 4d 61 63 | 20 49 2f 4f 20 49 6e 74 | the Mac| I/O Int|
|00001fc0| 65 72 66 61 63 65 21 20 | 7d 0d 09 20 20 43 41 53 |erface! |}..  CAS|
|00001fd0| 45 20 6d 6f 64 65 20 4f | 46 0d 09 09 49 6e 70 75 |E mode O|F...Inpu|
|00001fe0| 74 20 3a 20 0d 09 09 09 | 53 46 47 65 74 46 69 6c |t : ....|SFGetFil|
|00001ff0| 65 28 77 68 65 72 65 2c | 20 27 27 2c 20 66 69 6c |e(where,| '', fil|
|00002000| 65 46 69 6c 74 65 72 2c | 20 31 2c 20 66 69 6c 65 |eFilter,| 1, file|
|00002010| 54 79 70 65 2c 20 6f 74 | 68 65 72 44 69 61 6c 6f |Type, ot|herDialo|
|00002020| 67 2c 20 72 65 70 6c 79 | 29 3b 0d 09 09 4f 75 74 |g, reply|);...Out|
|00002030| 70 75 74 20 3a 20 0d 09 | 09 09 53 46 50 75 74 46 |put : ..|..SFPutF|
|00002040| 69 6c 65 28 77 68 65 72 | 65 2c 20 27 53 61 76 65 |ile(wher|e, 'Save|
|00002050| 20 46 69 6c 65 20 41 73 | 3a 27 2c 20 27 55 6e 74 | File As|:', 'Unt|
|00002060| 69 74 6c 65 64 27 2c 20 | 4e 49 4c 2c 20 72 65 70 |itled', |NIL, rep|
|00002070| 6c 79 29 3b 0d 09 09 4f | 54 48 45 52 57 49 53 45 |ly);...O|THERWISE|
|00002080| 20 3b 0d 09 20 20 45 4e | 44 3b 20 20 7b 20 63 61 | ;..  EN|D;  { ca|
|00002090| 73 65 20 7d 0d 09 20 20 | 76 6f 6c 52 65 66 4e 75 |se }..  |volRefNu|
|000020a0| 6d 20 3a 3d 20 72 65 70 | 6c 79 2e 76 52 65 66 4e |m := rep|ly.vRefN|
|000020b0| 75 6d 3b 0d 09 20 20 44 | 69 73 70 6f 73 44 69 61 |um;..  D|isposDia|
|000020c0| 6c 6f 67 28 6d 65 73 73 | 61 67 65 42 6f 78 29 3b |log(mess|ageBox);|
|000020d0| 0d 20 20 20 20 20 20 7b | 20 44 69 64 20 74 68 65 |.      {| Did the|
|000020e0| 20 75 73 65 72 20 63 61 | 6e 63 65 6c 3f 20 7d 0d | user ca|ncel? }.|
|000020f0| 09 20 20 49 46 20 72 65 | 70 6c 79 2e 67 6f 6f 64 |.  IF re|ply.good|
|00002100| 20 54 48 45 4e 0d 09 09 | 42 45 47 49 4e 0d 09 09 | THEN...|BEGIN...|
|00002110| 20 20 66 69 6c 65 6e 61 | 6d 65 20 3a 3d 20 72 65 |  filena|me := re|
|00002120| 70 6c 79 2e 66 4e 61 6d | 65 3b 0d 09 09 20 20 47 |ply.fNam|e;...  G|
|00002130| 65 74 46 69 6c 65 4e 61 | 6d 65 20 3a 3d 20 74 72 |etFileNa|me := tr|
|00002140| 75 65 3b 0d 09 09 20 20 | 4f 53 72 65 73 75 6c 74 |ue;...  |OSresult|
|00002150| 20 3a 3d 20 53 65 74 56 | 6f 6c 28 4e 49 4c 2c 20 | := SetV|ol(NIL, |
|00002160| 72 65 70 6c 79 2e 76 52 | 65 66 4e 75 6d 29 3b 0d |reply.vR|efNum);.|
|00002170| 09 09 45 4e 44 0d 09 20 | 20 45 4c 53 45 0d 09 09 |..END.. | ELSE...|
|00002180| 42 45 47 49 4e 0d 09 09 | 20 20 66 69 6c 65 4e 61 |BEGIN...|  fileNa|
|00002190| 6d 65 20 3a 3d 20 27 2a | 2a 20 42 41 44 20 52 45 |me := '*|* BAD RE|
|000021a0| 53 55 4c 54 20 2a 2a 27 | 3b 0d 09 09 20 20 47 65 |SULT **'|;...  Ge|
|000021b0| 74 46 69 6c 65 4e 61 6d | 65 20 3a 3d 20 66 61 6c |tFileNam|e := fal|
|000021c0| 73 65 3b 0d 09 09 45 4e | 44 3b 0d 09 45 4e 44 3b |se;...EN|D;..END;|
|000021d0| 20 7b 20 47 65 74 46 69 | 6c 65 4e 61 6d 65 20 7d | { GetFi|leName }|
|000021e0| 0d 0d 45 4e 44 2e 20 20 | 7b 20 4d 69 6e 69 50 65 |..END.  |{ MiniPe|
|000021f0| 67 61 73 75 73 20 7d 00 | 00 00 00 00 00 00 00 00 |gasus }.|........|
|00002200| 00 00 01 00 00 00 07 b4 | 00 00 06 b4 00 00 00 6a |........|.......j|
|00002210| 00 00 26 2a 08 73 61 6d | 70 6c 65 2e 72 80 02 00 |..&*.sam|ple.r...|
|00002220| 00 00 54 45 58 54 4d 50 | 53 20 01 00 00 0d 00 5f |..TEXTMP|S ....._|
|00002230| 09 70 65 67 61 73 75 73 | 2e 70 02 00 00 00 54 45 |.pegasus|.p....TE|
|00002240| 58 54 4d 50 53 20 00 00 | 00 00 00 80 00 00 00 00 |XTMPS ..|........|
|00002250| 00 00 54 45 58 54 4d 50 | 53 20 00 00 00 00 00 80 |..TEXTMP|S ......|
|00002260| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002270| 26 2a 9f dd 93 f7 00 00 | 21 77 00 00 08 1e 00 00 |&*......|!w......|
|00002280| 00 00 00 00 06 00 00 00 | 26 51 00 43 03 00 00 00 |........|&Q.C....|
|00002290| 00 00 00 00 00 00 00 00 | 26 29 0a 41 66 74 65 72 |........|&).After|
|000022a0| 20 47 6c 75 65 66 6f 72 | 65 20 47 6c 75 65 00 00 | Gluefor|e Glue..|
|000022b0| 00 00 00 00 00 00 00 00 | 00 00 0c 00 00 00 26 51 |........|......&Q|
|000022c0| 06 69 63 6f 6e 2e 72 69 | 02 00 00 00 54 45 58 54 |.icon.ri|....TEXT|
|000022d0| 4d 50 53 20 01 00 00 4c | 00 5c 00 00 00 00 26 6b |MPS ...L|.\....&k|
|000022e0| 00 00 00 00 02 65 00 00 | 08 00 00 00 00 00 01 7e |.....e..|.......~|
|000022f0| 00 00 08 00 9f dd 81 68 | 9f dd 81 69 00 00 00 00 |.......h|...i....|
|00002300| 00 00 03 12 00 fc 6e 43 | 4e db 6f ff 67 1e 2f 0c |......nC|N.o.g./.|
|00002310| 01 00 00 36 01 00 01 2a | 00 00 00 00 00 00 00 00 |...6...*|........|
|00002320| 01 00 06 ad 00 00 00 00 | 01 00 03 12 00 00 00 00 |........|........|
|00002330| 9f dd c7 4c 00 ad 00 d2 | ff af 00 00 70 8b 69 46 |...L....|....p.iF|
|00002340| bf ff 28 80 66 04 ff ff | ff ff ff ff ff ff ff ff |..(.f...|........|
|00002350| ff ff 00 00 01 82 01 00 | 04 01 00 01 01 00 00 6a |........|.......j|
|00002360| 02 77 00 18 ff ff 00 00 | 01 00 00 00 00 00 00 18 |.w......|........|
|00002370| 65 5f 01 ff ff ff 48 6e | ff fc 01 00 00 9a 01 00 |e_....Hn|........|
|00002380| 00 ca 01 00 00 9a 06 00 | 05 f4 01 00 02 00 07 06 |........|........|
|00002390| ff ff 00 02 ff ff ff 00 | ff fc 4a 28 00 84 00 46 |........|..J(...F|
|000023a0| 74 71 bc 07 ff ff 14 6a | b1 cc ff ff ff ff ff ff |tq.....j|........|
|000023b0| ff ff 01 00 00 ca 00 00 | 00 00 01 00 02 00 0f 00 |........|........|
|000023c0| ff ff 00 02 00 00 00 10 | 48 6e fe 98 4e ad 00 2a |........|Hn..N..*|
|000023d0| 65 20 28 81 c4 cb 2f 00 | 2f 13 ff ff ff ff 01 00 |e (.../.|/.......|
|000023e0| 00 fa 01 00 00 fa 06 00 | 07 9c 01 00 02 00 0d 40 |........|.......@|
|000023f0| ff ff 00 02 00 00 00 0c | 2f 00 72 43 2f 01 00 13 |........|/.rC/...|
|00002400| 65 20 07 c9 0f ff 4f ef | 00 0c ff ff ff ff ff ff |e ....O.|........|
|00002410| ff ff ff ff ff ff 06 00 | 07 9c 01 00 02 00 0e ba |........|........|
|00002420| ff ff 00 02 00 00 00 08 | 00 c0 4a ad c6 ba 00 00 |........|..J.....|
|00002430| da 3c 1e 07 0c 42 48 6e | ff ac 01 00 01 ee ff ff |.<...BHn|........|
|00002440| ff ff ff ff ff ff 00 00 | 01 82 01 00 04 01 00 01 |........|........|
|00002450| 01 00 01 5e 02 87 00 12 | ff ff 00 00 01 00 00 00 |...^....|........|
|00002460| 00 00 00 ba 5c 89 7f ff | ff ff 60 00 00 84 01 00 |....\...|..`.....|
|00002470| 01 be 01 00 01 8e 01 00 | 01 8e 05 00 17 f0 01 00 |........|........|
|00002480| 02 00 0f ef ff ff 00 02 | 00 00 00 0e 67 62 70 01 |........|....gbp.|
|00002490| b0 ad 00 0a 20 86 17 78 | ff ff a9 c8 60 52 ff ff |.... ..x|....`R..|
|000024a0| ff ff ff ff ff ff 01 00 | 01 be 00 00 00 10 01 00 |........|........|
|000024b0| 02 00 0f 2e ff ff 00 02 | 00 00 00 0c ff fc 11 7c |........|.......||
|000024c0| 00 01 00 bc 60 19 9f 41 | ff ff 67 12 48 6e ff ff |....`..A|..g.Hn..|
|000024d0| ff ff ff ff ff ff ff ff | ff ff 00 00 01 0c 01 00 |........|........|
|000024e0| 02 00 1f 9c ff ff 00 02 | ff ff ff 00 6e 00 ff 3c |........|....n..<|
|000024f0| 2f 2e 00 a0 68 07 29 00 | af 80 58 8f 67 22 ff ff |/...h.).|..X.g"..|
|00002500| ff ff ff ff ff ff ff ff | ff ff 00 00 00 98 01 00 |........|........|
|00002510| 05 01 00 01 01 00 02 22 | 02 00 00 1a ff ff 00 00 |......."|........|
|00002520| 01 00 00 00 00 00 00 84 | 60 ec 3f ff ff ff 72 6f |........|`.?...ro|
|00002530| 63 65 01 00 02 52 01 00 | 02 82 01 00 02 52 00 00 |ce...R..|.....R..|
|00002540| 00 88 01 00 02 00 1f fc | ff ff 00 02 00 00 00 18 |........|........|
|00002550| 00 08 4e ad 10 3a 00 80 | 64 7c 90 ff ff ff 70 00 |..N..:..|d|....p.|
|00002560| 2f 00 01 00 02 b2 ff ff | ff ff 01 00 02 82 06 00 |/.......|........|
|00002570| 07 9c 01 00 02 00 1d ee | ff ff 00 02 00 00 00 14 |........|........|
|00002580| 26 6e ff f8 4e 5e 00 75 | 60 19 9f 40 c2 5f 6c 69 |&n..N^.u|`..@._li|
|00002590| 67 6e ff ff ff ff ff ff | ff ff 01 00 02 b2 06 00 |gn......|........|
|000025a0| 05 f4 01 00 02 00 05 d6 | ff ff 00 02 ff ff ff 00 |........|........|
|000025b0| 10 3a 4a 80 4f ef 00 10 | 74 70 41 95 de 3f 70 03 |.:J.O...|tpA..?p.|
|000025c0| 2f 00 ff ff ff ff 01 00 | 02 e2 01 00 02 e2 00 00 |/.......|........|
|000025d0| 00 00 01 00 02 01 1f f8 | ff ff 00 02 00 00 00 0c |........|........|
|000025e0| 02 32 58 8f 60 0a 00 6e | 65 20 15 f0 1f ff 48 c0 |.2X.`..n|e ....H.|
|000025f0| 2f 00 ff ff ff ff ff ff | ff ff ff ff ff ff 06 00 |/.......|........|
|00002600| 05 f4 01 00 02 01 1d 5e | ff ff 00 02 00 00 00 08 |.......^|........|
|00002610| 60 02 70 01 4c ee 00 00 | 00 04 b0 0c cf a0 00 00 |`.p.L...|........|
|00002620| 01 00 00 b0 00 01 4e 56 | 00 00 4e 5e 4e 75 88 4c |......NV|..N^Nu.L|
|00002630| 4f 41 44 4f 50 54 32 00 | 00 00 00 0d 29 4a 48 e7 |OADOPT2.|....)JH.|
|00002640| 00 18 28 6e 00 10 26 6e | 00 0c 42 2e 00 14 20 0b |..(n..&n|..B... .|
|00002650| 56 c0 22 0c 56 c1 c0 01 | 67 00 01 d0 10 14 b0 13 |V.".V...|g.......|
|00002660| 66 00 01 c8 10 14 48 80 | 67 1a 53 40 67 2c 53 40 |f.....H.|g.S@g,S@|
|00002670| 67 00 00 b6 53 40 67 00 | 01 30 53 40 67 00 01 3e |g...S@g.|.0S@g..>|
|00002680| 60 00 01 a8 b7 cc 66 0e | 70 05 b0 2c 00 1e 56 c0 |`.....f.|p..,..V.|
|00002690| 44 00 1d 40 00 14 60 00 | 01 92 30 2c 00 02 b0 6b |D..@..`.|..0,...k|
|000026a0| 00 02 57 c0 32 2c 00 04 | b2 6b 00 04 57 c1 c0 01 |..W.2,..|.k..W...|
|000026b0| 67 72 30 2c 00 02 6b 18 | b0 7c 00 2f 6e 12 41 fa |gr0,..k.|.|./n.A.|
|000026c0| 01 94 32 00 e6 49 44 41 | 01 30 10 ff 0a 3c 00 04 |..2..IDA|.0...<..|
|000026d0| 66 14 42 67 2f 0c 2f 0b | 2f 2e 00 08 4e ba 01 76 |f.Bg/./.|/...N..v|
|000026e0| 1d 5f 00 14 60 3e 30 2c | 00 02 6b 18 b0 7c 00 1f |._..`>0,|..k..|..|
|000026f0| 6e 12 41 fa 01 5a 32 00 | e6 49 44 41 01 30 10 ff |n.A..Z2.|.IDA.0..|
|00002700| 0a 3c 00 04 66 08 1d 7c | 00 01 00 14 60 16 42 67 |.<..f..||....`.Bg|
|00002710| 2f 2c 00 06 2f 2b 00 06 | 2f 2e 00 08 4e ba ff 1c |/,../+..|/...N...|
|00002720| 1d 5f 00 00 02 42 9f 65 | 59 7b 9f dd c7 51 0c 42 |._...B.e|Y{...Q.B|
|00002730| 00 00 00 00 00 5a 00 04 | 4a 05 04 01 00 00 00 00 |.....Z..|J.......|
|00002740| 01 00 01 01 00 06 00 06 | 29 0e 00 06 40 42 00 09 |........|)...@B..|
|00002750| 00 00 00 26 17 53 74 61 | 6e 64 61 72 64 20 50 61 |...&.Sta|ndard Pa|
|00002760| 73 63 61 6c 20 53 79 6d | 62 6f 6c 73 20 00 00 4c |scal Sym|bols ..L|
|00002770| 00 00 00 00 00 03 ff ff | 00 00 00 c7 00 00 00 00 |........|........|
|00002780| 00 9c 00 00 01 b0 00 01 | 30 c0 00 1d 00 01 00 00 |........|0.......|
|00002790| 00 00 00 00 00 06 73 7c | 00 06 76 8e 00 1a 9f dd |......s||..v.....|
|000027a0| c7 4c 08 55 50 45 47 41 | 53 55 53 60 00 00 03 12 |.L.UPEGA|SUS`....|
|000027b0| 00 00 05 84 00 00 00 00 | 00 00 00 01 00 00 92 fe |........|........|
|000027c0| 00 05 95 b6 00 06 73 4a | 00 05 98 d0 00 1c 94 16 |......sJ|........|
|000027d0| 00 04 b2 b6 40 80 65 5c | 00 19 4f 08 00 00 00 07 |....@.e\|..O.....|
|000027e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 9f c8 69 73 |........|......is|
|000027f0| 08 50 41 43 4b 49 4e 54 | 46 60 00 00 03 12 00 00 |.PACKINT|F`......|
|00002800| 05 84 00 00 00 00 00 00 | 00 01 00 00 92 fe 00 05 |........|........|
|00002810| 95 b6 00 06 73 4a 00 05 | 98 d0 00 1c 94 16 00 04 |....sJ..|........|
|00002820| b2 b6 40 80 65 5c 00 19 | 4f 08 00 00 00 07 00 00 |..@.e\..|O.......|
|00002830| 00 00 00 00 00 00 00 00 | 00 00 9f c8 69 69 08 54 |........|....ii.T|
|00002840| 4f 4f 4c 49 4e 54 46 60 | 00 00 03 12 00 00 05 84 |OOLINTF`|........|
|00002850| 00 00 00 00 00 00 00 01 | 00 00 92 fe 00 05 95 b6 |........|........|
|00002860| 00 06 73 4a 00 05 98 d0 | 00 1c 94 16 00 04 b2 b6 |..sJ....|........|
|00002870| 40 80 65 5c 00 19 4f 08 | 00 00 00 07 00 00 00 00 |@.e\..O.|........|
|00002880| 00 00 00 00 00 00 00 00 | 9f c8 69 5c 06 4f 53 49 |........|..i\.OSI|
|00002890| 4e 54 46 54 46 60 00 00 | 03 12 00 00 05 84 00 00 |NTFTF`..|........|
|000028a0| 00 00 00 00 00 01 00 00 | 92 fe 00 05 95 b6 00 06 |........|........|
|000028b0| 73 4a 00 05 98 d0 00 1c | 94 16 00 04 b2 b6 40 80 |sJ......|......@.|
|000028c0| 65 5c 00 19 4f 08 00 00 | 00 07 00 00 00 00 00 00 |e\..O...|........|
|000028d0| 00 00 00 00 00 01 9f c8 | 69 56 09 51 55 49 43 4b |........|iV.QUICK|
|000028e0| 44 52 41 57 00 00 03 12 | 00 00 05 84 00 00 00 00 |DRAW....|........|
|000028f0| 00 00 00 01 00 00 92 fe | 00 05 95 b6 00 06 73 4a |........|......sJ|
|00002900| 00 05 98 d0 00 1c 94 16 | 00 04 b2 b6 40 80 65 5c |........|....@.e\|
|00002910| 00 19 4f 08 00 00 00 07 | 00 00 00 00 00 00 00 00 |..O.....|........|
|00002920| 00 00 00 06 9f c8 69 54 | 08 4d 45 4d 54 59 50 45 |......iT|.MEMTYPE|
|00002930| 53 57 00 00 03 12 00 00 | 05 84 00 00 00 00 00 00 |SW......|........|
|00002940| 00 01 00 00 92 fe 00 05 | 95 b6 00 06 73 4a 00 05 |........|....sJ..|
|00002950| 98 d0 00 1c 94 16 00 04 | b2 b6 40 80 65 5c 00 19 |........|..@.e\..|
|00002960| 4f 08 00 00 00 07 00 00 | 00 00 00 48 00 09 4d 6f |O.......|...H..Mo|
|00002970| 6e 61 63 6f 00 4e 47 65 | 00 00 00 14 00 01 31 04 |naco.NGe|......1.|
|00002980| 00 0a 00 92 00 00 01 79 | 02 4e 00 00 00 00 00 06 |.......y|.N......|
|00002990| 00 04 00 43 00 0b 01 d0 | 02 68 00 43 00 0b 01 d0 |...C....|.h.C....|
|000029a0| 02 68 9f e1 65 e9 00 00 | 02 f9 00 00 02 f9 00 00 |.h..e...|........|
|000029b0| 00 00 01 00 00 00 01 00 | 00 00 07 b4 00 00 06 b4 |........|........|
|000029c0| 00 00 00 6a 00 03 9a 00 | 05 84 00 00 00 1c 00 6a |...j....|.......j|
|000029d0| 00 01 75 6e 69 74 00 03 | 00 12 4d 50 53 52 00 00 |..unit..|..MPSR..|
|000029e0| 00 42 00 03 ff ff 00 00 | 00 00 00 00 00 00 00 02 |.B......|........|
|000029f0| ff ff 00 00 03 16 00 00 | 00 00 00 06 ff ff 00 00 |........|........|
|00002a00| 03 1e 00 00 00 00 00 00 | ff ff 00 00 04 22 00 00 |........|....."..|
|00002a10| 00 00 03 ed ff ff 00 00 | 06 68 00 04 c7 88 00 00 |........|.h......|
|00002a20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002a30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002a40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002a50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002a60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002a70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+